COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun result () (hack '(
C00004 ENDMK
C⊗;
(defun result () (hack '(
(2592 			
(RUNTIME 1.969) 	
(GCTIME 29.914) 	
(WTIME 25.8693333) 	)

(2592 
(RUNTIME 1.903) 
(GCTIME 2.616) 
(WTIME 5.334) )

(2592 
(RUNTIME 2.008) 
(GCTIME 2.61) 
(WTIME 5.59000003) )

(2592 
(RUNTIME 1.959) 
(GCTIME 2.065) 
(WTIME 5.86833334) )

(2592 
(RUNTIME 1.904) 
(GCTIME 1.921) 
(WTIME 5.1623333) ))))

(defun hack (l)
 (let etot ← 0 wtot ← 0 rat ← 0 do
  (for x ε l scan
       (print (car x))
       (print (cadr x))
       (print (caddr x))
       (setq etot (plus (cadr (cadr x))
			(cadr (caddr x))))
       (setq wtot (plus (cadr (cadddr x)) (cadr (caddr x))))
       (setq rat (quotient wtot etot))
       (print (list 'wruntime (times (cadr (cadr x)) rat)))
       (print (list 'wgctime (times (cadr (caddr x)) rat)))
       (print (list 'wholine wtot)))))